<!--#include file="inc/AspBox/Cls_AB.asp" -->
<%
AB.Use "jsLib"
Dim jsLib : Set jsLib = AB.jsLib.New
jsLib.Inc("des.js")
Dim jso : Set jso = jsLib.Object
Dim str : str = ""

Dim enkey : enkey = "123123123123123123123123" '8位，16位，或24位密钥
Dim text : text = "www.Baidu.com" '要加密的原字符串 不支持中文
Dim entext : entext = jso.endes(enkey, text) '加密
Dim otext : otext = jso.dedes(enkey, entext) '解密(还原)

ab.c.printcn entext '@return: EEo+UV32GqzvjgMTWAO3XA==
ab.c.printcn otext '@return: www.Baidu.com
%>